home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / SEQ.LSP < prev    next >
Text File  |  1992-05-11  |  394b  |  19 lines
  1. ;THIS FILE WILL INSERT NUMBERS IN SEQUENCE
  2. (defun c:SEQ ()
  3.   (command)
  4.   (setq 1STNUM (getint "\nSTARTING NUMBER: "))
  5.   (command)
  6.   (setq TXTHT (getreal "\nENTER TEXT HEIGHT: "))
  7.   (command)
  8.   (setq i 0)
  9.   (while 1
  10.     (setq i (1+ i))
  11.     (command)
  12.     (setq TEMP (+ I 1STNUM))
  13.     (command)
  14.     (setq NUM (- TEMP 1))
  15.     (command "TEXT" PAUSE TXTHT "" NUM)
  16.   ) 
  17.   (prin1)
  18. )
  19.